home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / DEV / I-Z / ResCopy.cpt / ResCopy XCMD / card_4270.txt < prev    next >
Text File  |  1989-02-02  |  5KB  |  179 lines
  1. -- card: 4270 from stack: in
  2. -- bmap block id: 2990
  3. -- flags: 0000
  4. -- background id: 3586
  5. -- name: Install ResCopy
  6.  
  7.  
  8. -- part 23 (field)
  9. -- low flags: 01
  10. -- high flags: 0000
  11. -- rect: left=23 top=125 right=330 bottom=487
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 17
  19. -- part name: Explain
  20.  
  21.  
  22. -- part 28 (button)
  23. -- low flags: 00
  24. -- high flags: A004
  25. -- rect: left=303 top=189 right=213 bottom=482
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Install ResCopy in Home
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   if the version > 1.1 then
  37.     put true into newvers
  38.   else
  39.     put false into newvers
  40.   end if
  41.   answer "Install ResCopy in your Home stack?" with "OK" or "Cancel"
  42.   put it into theAnswer
  43.   if theAnswer is "OK" then
  44.     put trim(the long name of stack "Home") into toFile
  45.  
  46.     put trim(the long name of this stack) into fromFile
  47.  
  48.     if (toFile is not empty) and (fromFile is not empty) then
  49.       ResCopy fromFile, toFile, "DITL", 10001
  50.       if newvers then set cursor to busy
  51.       if the result is not empty then
  52.         answer "There was an error trying to install ResCopy" with "OK"
  53.         exit mouseUp
  54.       end if
  55.       ResCopy fromFile, toFile, "DLOG", 10001
  56.       if newvers then set cursor to busy
  57.       ResCopy fromFile, toFile, "DITL", 10000
  58.       if newvers then set cursor to busy
  59.       ResCopy fromFile, toFile, "DLOG", 10000
  60.       if newvers then set cursor to busy
  61.       ResCopy fromFile, toFile, "XCMD", 10000
  62.       if newvers then set cursor to busy
  63.       Answer "ResCopy is installed." with "OK"
  64.     end if
  65.   end if
  66. end mouseUp
  67.  
  68. function trim name
  69. delete char 1 to (the length of ("stack" && quote)) of name
  70. delete last char of name
  71. return name
  72. end trim
  73.  
  74.  
  75.  
  76.  
  77. -- part 29 (button)
  78. -- low flags: 00
  79. -- high flags: A004
  80. -- rect: left=303 top=304 right=328 bottom=482
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: Install ResCopy in stack
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   if the version > 1.1 then
  92.     put true into newvers
  93.   else
  94.     put false into newvers
  95.   end if
  96.  
  97.   put FileName("STAK","Choose a stack into which to install ResCopy‚Ķ") into toFile
  98.  
  99.   if toFile is empty then exit mouseup
  100.  
  101.   put trim(the long name of this stack) into fromFile
  102.  
  103.   set lockmessages to true
  104.   push card
  105.   go to stack toFile
  106.   answer "Install ResCopy in this stack?" with "OK" or "Cancel"
  107.   pop card
  108.   set lockmessages to false
  109.   put it into foo
  110.  
  111.   if foo is empty or foo is "Cancel" then exit mouseup
  112.  
  113.   if (toFile is not empty) and (fromFile is not empty) then
  114.     ResCopy fromFile, toFile, "DITL", 10001
  115.     if newvers then set cursor to busy
  116.     if the result is not empty then
  117.       answer "There was an error trying to install ResCopy" with "OK"
  118.       exit mouseUp
  119.     end if
  120.     ResCopy fromFile, toFile, "vers", 1
  121.     if newvers then set cursor to busy
  122.     ResCopy fromFile, toFile, "vers", 2
  123.     if newvers then set cursor to busy
  124.     ResCopy fromFile, toFile, "DLOG", 10001
  125.     if newvers then set cursor to busy
  126.     ResCopy fromFile, toFile, "DITL", 10000
  127.     if newvers then set cursor to busy
  128.     ResCopy fromFile, toFile, "DLOG", 10000
  129.     if newvers then set cursor to busy
  130.     ResCopy fromFile, toFile, "XCMD", 10000
  131.     if newvers then set cursor to busy
  132.     Answer "ResCopy is installed." with "OK"
  133.   end if
  134. end mouseUp
  135.  
  136. function trim name
  137. delete char 1 to (the length of ("stack" && quote)) of name
  138. delete last char of name
  139. return name
  140. end trim
  141.  
  142.  
  143.  
  144. -- part 31 (field)
  145. -- low flags: 81
  146. -- high flags: 2004
  147. -- rect: left=140 top=120 right=323 bottom=374
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 0 / 0
  150. -- text alignment: 0
  151. -- font id: 3
  152. -- text size: 12
  153. -- style flags: 0
  154. -- line height: 16
  155. -- part name: Help
  156. ----- HyperTalk script -----
  157. on mouseUp
  158.   hide the target
  159. end mouseUp
  160.  
  161.  
  162. -- part contents for card part 23
  163. ----- text -----
  164. your HyperCard stacks are for your use alone, and you always use the same Home stack.
  165. Example: A HyperCard user who always uses the same Macintosh.
  166.  
  167.  
  168.  
  169.  
  170. your HyperCard stack might be used on a Macintosh system with HyperCard other than your own.
  171. Example: A HyperCard developer who works at different sites and/or on a different Macintosh.
  172.  
  173. -- part contents for card part 31
  174. ----- text -----
  175.  
  176. Use this card to install ResCopy, a resource copier tool which can be used to copy resources (sounds, icons, pictures, etc.) into any stack you choose.  
  177.  
  178. Once you decide which stack 
  179. (Home or other) will be installed with the resources, just click on the appropriate button.